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DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
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TSTSDTSAST = DTS AST ROUTINES SEP-1984 AX/VMS Macro V04-00 P 
vou~008 TSTSTIMER_DTS = TIMER AST ROUTINE "973ep=198e bb:So:34 EotSpTR.eeesoreasTomar;1 = a9 
5 $11 Ist STIMER_DTS = TIMER AST ROUTINE 
0000 eg ect T SCODE ~ NOWR? 
os SA : SYMBOL FOR DEBUGGING PURPOSES 
p++ 
; FUNCTIONAL DESCRIPTION: 
0 i : NONE 
fh ; CALLING SEQUENCE: 
6 id: ; CALL  &#5,TSTSTIMER_DTS (INVOKED BY VAX/VMS AS AN AST) 
00 28 : INPUT PARAMETERS: 
tt 0 : 4(AP) ADDRESS OF Q10 PARAMETER BLOCK 
909 : ; IMPLICIT INPUTS: 
2099 , ; NONE 
000 bg : OUTPUT PARAMETERS: 
000 ; 
9000 Hs 3 NONE 
900 30 : IMPLICIT OUTPUTS: 
38 38 ; NONE 
$09 94 : COMPLETION CODES: 
0000 «s(«95 : 
9000 96 NONE 
00 98 : SIDE EFFECTS: 
00 99 : 
00 100 ; NONE 
000 101; 
S00 «108° 
o01¢ 000 104 .ENTRY TSTSTIMER DTS. *M<R2,R3,R4>_; ENTRY POIN 
0000'CF OD 00 105 DECL WATSTSGL_CLOCK DECREMENTS OI MEOUT CONST 
14 13 0006 1 6 BEQLU 108 OF NOT ZERO THEN Tess CONTINUES 
008 1 SSETIMR_S EFN=#EFN_K_TIMER- 
08 1 : DAYTIM=W*TSTSGQ_NANOSEC- 
08 1 ASTADR=W*TSTSTIMER_DTS 
So Nw ™ 
1¢ 11¢ " - $CANCEL_S CHAN=W*TSTSGW_ LINKCHAN ; CANCEL ALL PENDING LINK 1/0 REQUESTS 
11 ;"CHECK STATUS CODE 
8 114 CANCEL S CHAN=W*TSTSGW_MAILCHAN ; CANCEL MAILBOX READ 
115 : CHECK STATUS CODE 
A 118 ; Sserer. s, FNS#EEN K K_SIGNAL : SIGNAL END OF TEST 
0000'cF 01 90 A 11 MOVB W*TSTSGB-ASTFLAGS : DENOTE CLOCK TIMEOUT 
F 118 SWAKE hs SWAKEUP MAINLINE 
4A 11 CHECK $$ : CHECK STATUS CODE 
04 0040 120 RET > EXIT 
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TSTSDTSAST = DTS AST ROUTINES 16-SEP-1984 01:26:41 VAX/VMS Macro v04-00 P 
you2008 TSTSKMITAST_DTS = TRANSMIT DATA MESSAGE g-SEF} 7 85:38:34 DTSDTR.SRCJDTSAST.MAR; 1 a 
4E 1 g .SBTTL TSTSXMITAST_DTS - TRANSMIT DATA MESSAGE AST ROUTINE 
0000004E 1 *PSECT TSTSCODE NOWRT 
are 
7: $; > FUNCTIONAL DESCRIPTION: 
4E g : NONE 
dE 0; : CALLING SEQUENCE: 
Oct } gi ; CALL #5, TSTSXMITAST_DTS (INVOKED BY VAX/VMS AS AN AST) 
ae 4 i ? INPUT PARAMETERS: 
O4E 6 : 4(AP) ADDRESS OF Q10 PARAMETER BLOCK 
0046E 1 8: : IMPLICIT INPUTS: 
04— 139: 
CBE de 
O4E 14g : OUTPUT PARAMETERS: 
04E 143: 
DCE a8 | — 
04E 146 : IMPLICIT OUTPUTS: 
QO4E 147 : 
Bee 408 | _ 
04E 150 ; COMPLETION CODES: 
04— 151: 
oa eae 
QO4E 154 : SIDE EFFECTS: 
Be 155 ; 
0 4E 136 3 : NONE 
04— 157: 
CE 88 
0004 004E 160 .ENTRY TSTSXMITAST_DTS,“M<R2> ; ENTRY POINT 
30 161 CHECK_IOSB W*TSTSGQ-XMITIOSB  ; CHECK 1/0 STATUS CODE 
3851 «£9 168 BLBC ~ R1,10$ : BRANCH ON FAILURE 
0000' CF é } 5 163 CHP RZ Ww" TSTSGU_ SIZE ; Is ARESSAGE CORRECT SIZE? 
7€ 9003 °CF 3¢ 165 MOVZWL u*TST$Ga -MITIOSB#2, -(SP$ get SIZE OF MESSAGE 
‘CE ODF 1 : PUSHAL W*TST$GB~XMI TBUF : BET ADDRESS OF MESSAGE BUFFER 
00 DD 0068 16 PUSHL #0 : DENOTE A TRANSMIT 
rE 900°C A $ 168 MOVZBL W*TSTSGB DISPLAY, = (SP) : GET MAXIMUM BYTES TO DISPLAY 
‘CE. «604)—SCOFB 1g CALLS &#4,W°TSTSDISPLAY.MSG | ; OUTPUT MESSAGE TO PRINT FILE 
900° CF D6 0077: «1 p INCL “fSTSGL_XMIT TDATR : INCREMENT COUNTER 
‘CF «06 0078 «(17 CL - W*TSTSGB~XMI TBUF : INCREMENT MESSAGE SEQUENCE NUMBER 
7F 17 ; Q10.G a4(AP) : RE-ISSUE TRANSMIT DATA Q10 
9000'cF O& OO7F 17 INSQUE W*TST$QB_XMTDATA,- 
00000004 ' FF 174 TST$QB_GHEAD+4 SQUEUE DATA AST 
175 SUAKE_S [WAKEUP MAINLINE FOR REQUEUE 
9 138 CHECK_SS ; CHECK STATUS CODE 
04 0096 178108: RET > EXIT 
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TINES 16-SEP-1984 01:26:41 VAX/VMS Macro v04-00 Pa 5 
TS = TRANSMIT DATA MESSAGE §-8 eats 84:38:51 YOTSDIR. SREIDTSAST MARS 1 ” (4) 
4 20$: MOVL #DTSS_BADDATLEN W°TSTSGL. STATUS ;NOTE BAD DATA LEN 
8 RET 3; EXI 
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TSTSDTSAST = DTS AST ROUTINES 16-SEP-1984 01:26:41 VAX/VMS Macro V04-00 P 
yee p08 TSTSRECVAST DTS © RECEIVE DATA MESSAGE A 'SaSep-1984 QO:Soi34 LOrSDTR.caeioreacTomars1 Page so 
Al .SBTTL TSTS$RECVAST_DTS = RECEIVE DATA MESSAGE AST ROUTINE 
000000A1 1 j *PSECT TST$CODE ~~ Noun’ 
OB 
al : ; FUNCTIONAL DESCRIPTION: 
al g : NONE 
al 190 ; CALLING SEQUENCE: 
al 198 ; CALL #5, TSTSRECVAST_DTS (INVOKED BY VAX/VMS AS AN AST) 
4 134 : INPUT PARAMETERS: 
Ol 196 : 4(AP) ADDRESS OF Q10 PARAMETER BLOCK 
OA1 198 + IMPLICIT INPUTS: 
BAI 199 ; 
yn tan 
QOAi 0¢ : OUTPUT PARAMETERS: 
opal oe nein 
QOA 06 : IMPLICIT OUTPUTS: 
OA1 07 ; 
| allen 
OA1 210 : COMPLETION CODES: 
OA1 7 3 
i ie 
QAl 214 ; SIDE EFFECTS: 
nA 18; 
Al 1 : NONE 
DOA1 17 : 
ye S| 
ie 
0004 00A1 0 -ENTRY TSTSRECVAST_DTS,*M<R2> ; ENTRY POINT 
003 1 CHECK_10SB W*TSTS$GQ-RECVIOSB ; CHECK 1/0 STATUS CODE 
37 51 £9 OOAB Q BLBC ~ R1,10$ : BRANCH ON FAILU 
0000'cr 52 61 CMPW Re W*TSTS$GW_SIZE : IS MESSAGE CORRECT SIZE? 
1 12 008 4 NEQ 208 * BRANCH ON ERROR 
7E 900 ‘CF §=63C O08 5 VZ2WL W*TST$SGQ_RECVIOSB+2,-(SP} ; GET SIZE OF MESSAGE 
Cr F OOBA 6 PUSHAL W*TST$GB~RECVBUF ; GET ADDRESS OF MESSAGE BUFFER | 
1 DD 006 SHL. ot : DENOTE A RECEIVE 
7 0000'¢# A 00C : MOVZBL W*TSTSGB_DISPLAY,-(SP) ; GET MAXIMUM BYTES TO DISPLAY 
0000° CF FB ¢ CALLS &#4,W°TSTSDISPLAY.MSG | ; OUTPUT MESSAGE TO PRINT FILE 
0000° CF CA 0 Inc. W*fSTSGL_RECVDATA : INCREMENT COUNTER 
CE ; Q10.G a4(AP) : RE-ISSUE RECEIVE DATA Q10 
9000: cF OE 00¢ : INSQUE W*TST$QB_RCVDATA,- 
00000004 ' FF D @TST$QB_GHEAD+4 sQUEUE DATA AST 
D 4 SWAKE_S iWAKE MAINLINE TO REQUEUE READ 
% eg 5 ee CHECK™SS ; CHECK STATUS CODE 
0000'CF 01F58023 BF DO O0E6 $ 388: MOVL § #DTS$_BADDATLEN,W*TSTSGL_STATUS ;NOTE BAD LENGTH | 
4 OOEF 8 RET 7 EXIT | 
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» SBTT TSTSAAILAST OTS = READ MAILBOX AST ROUTINE 
»PSECT TST$COD NOWRT 
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++ 
FUNCTIONAL DESCRIPTION: 
NONE 


INPUT PARAMETERS: 
4(AP) ADDRESS OF QI10 PARAMETER BLOCK 
IMPLICIT INPUTS: 


T 
A 
i 
4 | 
| 
hi 
45 
23 | 
48 CALLING SEQUENCE: 
: CALL #5, TSTSMAILAST_DTS (INVOKED BY VAX/VMS AS AN AST) 
4 
55 
if 
38 NONE 
00 60 OUTPUT PARAMETERS: 
0 6¢ NONE 
0 64 IMPLICIT OUTPUTS: 
0 66 NONE 
: ‘8 COMPLETION CODES: 
0 2 NONE 
0 es SIDE EFFECTS: 
7% NONE 
75 
i i 
00c4 28 .ENTRY TSTSMAILAST_DTS,°M<R2,R6,R7> ; ENTRY POINT 
7 CHECK_IOSB W°TSTSGQ"MAILIOSB | ; CHECK 1/0 STATUS CODE 
44 51 £9 A 0 BLBC ~ R1,10$ : BRANCH ON FAILUR 
FFOO' 30 00 1 BSBU «= ss TST SEXAM_MAIL + EXAMINE THE MESSAGE 
35 56 jt g CHP R #MSGS~INTMSG : Is IT AN INTERRUPT MESSAGE? 
0000' CF 5 ; 1 4 CMPB |, eee : IS MESSAGE CORRECT SIZE? 
; 12 O10A 5 BNEQ 308 : BRANCH ON ERROR 
7E 9A 010C 6 MOVZBL (R7)+,=(SP) : GET SIZE OF MESSAGE 
7 OD 010F PUSHL R7 : GET ADDRESS OF MESSAGE BUFFER 
1 DD 01 8 PUSHL #1 $ DENOTE A RECEIVE 
7 900°C A O11 MOVZBL W*TSTSGB_DISPLAY,-(SP) : GET MAXIMUM BYTES TO DISPLAY | 
500° F FB O11 CALLS #4,W°TSTSDISPLAY MSG | ; OUTPUT MESSAGE TO PRINT FILE 
§000° Ctr D6 110 9 uc w*fSTSGL_RECVINTE : YES, INCREMENT COUNTER 
1 3 : Q10 G a4 (AP) : RE-[SSUE READ MAILBOX Q10 
"CF «60E O01 i 9 INSQOE wW*TST$QB RCVMAIL = 
"FF 1 94 @TST$QB GHEAD+ ;QUEUE ANOTHER READ 
"CF «60E «(012A (295 INSQUE W*TST$QB_XMTINT,- 
"FF 12—E 296 @TST$QB_GHEAD+4 SQUEUE ANOTHER WRITE | 
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your000 TSTSINTEAST DTS = TRANSMIT INTERRUPT MES §7 3-1 382 84:38:51 YOTSDTR. SREIDTSAST MAR: 1 ° (3) 
189 314 .SBTTL TSTSINTEAST_DTS = TRANSMIT INTERRUPT MESSAGE AST ROUTINE 
000001 15 -PSECT TSTSCODE NOWRT 
BHP 
} 18 ; FUNCTIONAL DESCRIPTION: 
; p ; NONE 
9 ; ; CALLING SEQUENCE: 
: , ; CALL #5, TSTSINTEAST_DTS (INVOKED BY VAX/VMS AS AN AST) 
} $ + INPUT PARAMETERS: 
} g : 4(AP) ADDRESS OF Q10 PARAMETER BLOCK 
3 6 ; IMPLICIT INPUTS: 
} : ; NONE 
} 4 : OUTPUT PARAMETERS: 
} 2 : NONE 
} : + IMPLICIT OUTPUTS: 
} 40 : NONE 
189 4g : COMPLETION CODES: 
a aa 
; 46 > SIDE EFFECTS: 
189 48 ; NONE 
189 49; 
19 3t 
0004 0189 3 .ENTRY TSTSINTEAST_DTS,°M<R2> ; ENTRY POINT 
0000'8F B61 01 5 CMPW 360s #SS$_NOSOL : 
0000' CF 18F 354 w*TST$GQ_INTEIOSB :INT MSG MAY HAVE NOT BEEN REQUESTED 
1A 12 «20192~=S «355 BNEQU 2% j1F NOT CONTINUE 
194 36 SSETIMR_S EFN=#10,DAYTIM=W*TST$GQ_NANOSEC 
1A3 3 SWAITFR-S EFN=#10 ;WAIT A SECOND BEFORE RESENDING 
2F 1 TAC 38 = ‘BRB 5$ 
1A 60 , CHECK 10SB W°TST$GQ_INTEIOSB =; CHECK 1/0 STATUS CODE 
4251 €9 O18 6 BLBC ~ R1,10$ : BRANCH ON FAILUR 
o000'cF 52 8} 18 6¢ CMP Re w*TST$GW_SIZE : 1S MESSAGE CORRECT SIZE? 
, i. a BNEQ 208 * BRANCH ON ERROR 
7E 9003° CF 3¢ (OIC 4 MOVZ2WL W*TST$GQ_INTEIOSB+2,-(SP) ; GET SIZE OF MESSAGE 
"CE «6F «(OIC 65 PUSHAL W*TST$GB~INTEBUF ; GET ADDRESS OF MESSAGE BUFFER 
Dp OIC 66 PUSHL : DENOTE A TRANSMIT 
— QO00'CF 9A OIC MOVZBL W*TST$GB DISPLAY, (SP) + GET MAXIMUM BYTES TO DISPLAY 
0000' CF FB 01D 8 CALLS @#4,W°TSTSDISPLAY_MSG |; OUTPUT MESSAGE TO PRINT FILE 
B09 CF 06 1D NCL = W FSTSGL_XMITINTE ; INCREMENT COUNTER 
"CF «66 O1D 0 NCL  W*TSTS$GB” INTEBUF : INCREMENT MESSAGE SEQUENCE NUMBER 
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TSTSDTSAST = DTS AST ROUTINES 16-SEP= AX/VMS Macro V04-00 P 1 
Vou2000 TSTSINTEAST DIS © TRANSMIT INTERRUPT MES 'SaSEP=19R6 GO;So:26 YOTSDTA.cRETDTSasT mars1 P29 19), 
10 ft $010.6 a4 (AP) ;RE_ISSUE TRANSMIT INTERRUPT Q10 
od " iff qi ihe WVAL TYPE. ECHO WAS THIS AN ECHO TEST 
; 13 O162 «375 BEQLU 1 [YES JUST EXIT,READ WILL REQUE 
QO00'CF OF O1E4 2 INSQUE w"TS7$08 XMTINT, = 
00000004 ' FF 168 37 @TST$QB_GHEAD+4’ ;QUEUE DATA AST 
IED 28 SWAKE_S [WAKE MAINLINE FOR REQUEUE 
1F8 19 eg CHECK"SS ; CHECK STATUS COD 
0000'CF  01F58023 BF Bd HEC } 88 ‘st 
$b 388 ; 


E 
HE 
RET EXIT 
MOVL #0TS$_BADDATLEN,W*TSTSGL_STATUS 
5 A EXIT 
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Symbol table : SEpa198 0:38:34 UOTSb TR. sReaDTSA «MAR; 1 ” (7) | 
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DTS$_BADDATLEN 


DTS$ _BADMAIL 
EFN_R TIMER 


K_LIST_MEB 
Kste IRTHG 
SS$_NOSOLICIT 
SYSSCANCEL 
SYSSCANTIM 


SYSSSETIMR 
SYSSWAITFR 


$GB "REC VBUF 
$GB"TYPE 
$GB~XM1 TBUF 
$GL~CLOCK 
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TSTSDTSAST 
Psect synopsis 


= DTS AST ROUTINES 


aoneewrnococe wmoensceat 


+ 
H Psect synopsis ! 


wcowom ann oan coace $ 


PSECT name Allocation PSECT No. Attributes 
. ABS. 0000000 ( -)» 00 ¢ 9.) NOPIC USR CON ABS 
S$ 4444 ( -» QO1 ¢ -) NOPIC USR CON’ ABS 
TSTSCODE 0000206 ( 518.) 02 ¢ 2.) NOPIC USR CON’ REL 
terre ee ee ee remo wee emocea sd 
H Performance indicators H 
Phase Page faults CPU Time Elapsed Time 


Initialization 3 : 
Command processing ie 


0 9 0:00:00.85 
Gist 08 968008 
Pass 0: 1 :00: 44 
Symbol table sort :00: :00:00. 
bo 0 00 1 00:00 4 
Pass 2 82 BR 701.3 BR: 0: 68 
Symbol table output 6 0:00:00.1 0:00:00.1 
Psect synopsis output 0:00:00.0 Ba: 0:00.05 
Cross-reference output 0: 8: 9-09 88880 -08 
Assembler run totals 46 0:00:07.4 00:00:24.7 


The working set Limit was 1200 pages. 

22891 bytes (45 pages) of virtual memory were used to buffer the intermediate c 
There were 20 pages of symbol table space allocated to hold 
445 source Lines were read in Pass 1, producing object records in Pass 
29 pages of virtual memory were used to define 25 macros. 


Ser ese eo won nner measesreoroaa tt 


~$255$DUA28: [DTSOTR OBJ JD1SD7R-MLB; 1 
$255$DUA28: (SYSLIBISTARLET .MLB; 1 
TOTALS (all Libraries) 1 


347 GETS were required to define 19 macros. 


There were no errors, warnings or information messages. 


"SSEP=198¢ 00:88:34 EDTSDTR.SREIDTSASTSRAR: 1 


LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
LCL NOSHR EXE RD WRT NOVEC BYTE 
LCL NOSHR EXE RD NOWRT NOVEC BYTE 


ode. 
9 non-local ane 12 local symbols. 


MACRO/LIS=LIS$:DTSAST/OBJ=OBJ$:DTSAST MSRC$:DTPREF IX/UPDATE=(ENHS:DTPREF IX) *MSRC$:DTSAST/UPDATE=(ENH$:DTSAST) 
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